home *** CD-ROM | disk | FTP | other *** search
/ MacAddict 114 / macaddict114.cdr / Software / Interface / windowshade-x-402.dmg / WindowShade X 4.0.2 Installer.app / Contents / Resources / ui / post-install.pl < prev    next >
Encoding:
Perl Script  |  2004-08-19  |  460 b   |  17 lines
  1. #!/usr/bin/perl
  2.  
  3. $path = $ENV{UI_INSTALL_FILE};
  4.  
  5. $apePath1 = "/Library/Application Enhancers/WindowShade X.ape";
  6. $apePath2 = "$ENV{'HOME'}/Library/Application Enhancers/WindowShade X.ape";
  7.  
  8. if (-e $apePath1) {
  9.     $toPath = $apePath1 . "/Contents/Resources/APEInfo.rtfd";
  10. } elsif (-e $apePath2) {
  11.     $toPath = $apePath2 . "/Contents/Resources/APEInfo.rtfd";
  12. }
  13.  
  14. if ($path and $toPath) {
  15.     symlink($path . "/Contents/Resources/WindowShade X Read Me.rtfd", $toPath);
  16. }
  17.